home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / PREPACK.PRG < prev    next >
Text File  |  1986-10-06  |  756b  |  40 lines
  1. *
  2. * PREPACK
  3. * CLEAN UP PERSONNL FILE BY REMOVING DELETED RECORDS AND REGENERATING INDEXES
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,13 SAY ">> Human Resources Management System File Clean Up <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM PERMANENTLY REMOVES RECORDS FLAGGED FOR DELETION FROM THE"
  18. @ 16,1 SAY ;
  19. "PERSONNEL FILE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS REPACK =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN PERSONNL FILE WITH ALL INDEXES, THEN REPACK
  27. USE PERSONNL INDEX PNAME, PSSAN
  28. PACK
  29. REINDEX
  30. CLEAR
  31. RETURN
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.